home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1996 November & December / Amiga-CD 1996 #11-12.iso / pd-disketten / ungepackt / 8_95 / apd-8-95-2 / psion / install-amigancp < prev    next >
Text File  |  1996-01-22  |  4KB  |  191 lines
  1. ;
  2. ; Installer-Script for AmigaNCP
  3. ;
  4. ; $VER: AmigaNCP-Install 0.3 (19.10.94)
  5. ;
  6.  
  7. ;
  8. ; Strings
  9. ; 
  10.  
  11. (set #install-msg
  12. (cat    "Where do you want AmigaNCP be installed?\nA drawer named"
  13.         "'AmigaNCP' will be automatically created."
  14. ))
  15.  
  16. (set #copylib-msg "Installing ncp.library")
  17. (set #copylib-where "Please select a directory for \"ncp.library\".")
  18. (set #copycat-msg "Installing catalogs")
  19. (set #copycat-where "Please select a directory for the language catalogs.")
  20. (set #copyserv-msg "Installing NCP Services")
  21. (set #copydoc-msg "Installing Docs")
  22. (set #copytools-msg "Installing Tools")
  23.  
  24. (set #wantdev-msg 
  25. (cat    "Do you want to install the Developer\n"
  26.         "Documentation and associated support files?\n\n"
  27.         "These files are needed only when you want\n"
  28.         "to develop applications using \"ncp.library\".\n"
  29. ))
  30. (set #copydev-msg "Copying Developer files")
  31. (set #whats "What Psion computer do you own?")
  32. (set #need20 "AmigaNCP requires OS 2.04 or better!" )
  33.  
  34. ;
  35. ; Determine if running on an 68020++
  36. ;
  37. (procedure checkv20
  38.     (if (>= (database "cpu") 68020 )
  39.         (set v20-flag 1)
  40.     )
  41. )
  42. ;
  43. ;
  44. ; GO!
  45. ;
  46. ;
  47. (set vernum (getversion "LIBS:version.library"))
  48. (set ver (/ vernum 65536 ) )
  49. (set rev (- vernum (* ver 65536 ) ) )
  50.  
  51. (if (< ver 37 )
  52. (
  53.     (abort #need20)
  54. ))
  55. (welcome)
  56. (set default-dest
  57.     (askdir
  58.         (prompt #install-msg)
  59.         (help @askdir-help)
  60.         (default @default-dest)
  61.     )
  62. )
  63. (complete 1)
  64. (set @default-dest
  65.     (tackon default-dest "AmigaNCP")
  66. )
  67. (makedir @default-dest (infos))
  68. (makedir (tackon @default-dest "Docs" ) (infos))
  69. (makedir (tackon @default-dest "Tools" ) (infos))
  70. (complete 2)
  71. ;
  72. ; Copy lib
  73. ;
  74. (set #libname "libs/amigancp.library")
  75. (checkv20)
  76. (if v20-flag
  77. (
  78.     (set #libname "libs/amigancp.library.020")
  79. ))
  80. (copylib
  81.     (help @copylib-help)
  82.     (prompt #copylib-msg)
  83.     (confirm)
  84.     (source #libname)
  85.     (newname "ncp.library")
  86.     (dest
  87.         (askdir
  88.             (prompt #copylib-where)
  89.             (help @askdir-help)
  90.             (default "LIBS:")
  91.         )
  92.     )
  93. )
  94. (complete 10)
  95. (if (> ver 37 )
  96. (
  97.     (copyfiles
  98.         (source "Catalogs")
  99.         (prompt #copycat-msg)
  100.         (help @copyfiles-help)
  101.         (dest
  102.             (askdir
  103.                 (prompt #copycat-where)
  104.                 (help @askdir-help)
  105.                 (default "LOCALE:Catalogs")
  106.             )
  107.         )
  108.         (confirm)
  109.         (all)
  110.     )
  111. ))
  112. (complete 20)
  113. (copyfiles
  114.     (source "")
  115.     (pattern "AmigaNCP#?")
  116.     (prompt #copyserv-msg)
  117.     (help @copyfiles-help)
  118.     (confirm)
  119.     (infos)
  120.     (dest @default-dest)
  121. )
  122. (foreach "" "AmigaNCP#?"
  123.     (tooltype (
  124.         (dest (tackon @default-dest @each-name ) )
  125.         (noposition)
  126.     )
  127. ))
  128. (complete 40)
  129. (copyfiles
  130.     (source "Docs")
  131.     (prompt #copydoc-msg)
  132.     (help @copyfiles-help)
  133.     (confirm)
  134.     (infos)
  135.     (all)
  136.     (dest (tackon @default-dest "Docs" ) )
  137. )
  138. (complete 60)
  139. (copyfiles
  140.     (source "Tools")
  141.     (prompt #copytools-msg)
  142.     (help @copyfiles-help)
  143.     (confirm)
  144.     (infos)
  145.     (all)
  146.     (dest (tackon @default-dest "Tools" ) )
  147. )
  148. (complete 70)
  149. (if (askbool
  150.         (prompt #wantdev-msg)
  151.         (help #wantdev-msg)
  152.         (default 1)
  153.     )
  154. (
  155.     (set devdir (tackon @default-dest "Developer"))
  156.     (makedir devdir (infos))
  157.     (copyfiles
  158.         (source "Developer")
  159.         (prompt #copydev-msg)
  160.         (help @copyfiles-help)
  161.         (dest devdir)
  162.         (confirm)
  163.         (infos)
  164.         (all)
  165.     )
  166. ))
  167. (complete 90)
  168. (if ( = (exists "ENV:NCP.config") 0 )
  169. (
  170.     (set s3amode (askchoice
  171.         (choices "Psion S3 (or HC)" "Psion S3a (or MC)")
  172.         (default 0 )
  173.         (prompt #whats)
  174.         (help @askchoice-help)
  175.     ))
  176.     (if s3amode (
  177.         (textfile 
  178.             (dest "ENV:NCP.config")
  179.             (append "DEVICE=serial.device UNIT=0 BAUD=19200")
  180.         )
  181.     )
  182.     (
  183.         (textfile 
  184.             (dest "ENV:NCP.config")
  185.             (append "DEVICE=serial.device UNIT=0 BAUD=9600")
  186.         )
  187.     ))
  188.     (run "copy ENV:NCP.config ENVARC:NCP.config")
  189. ))
  190. (complete 100)
  191.